10 for A=1to 256
20 $ = A,B,C
30 print A,B,C
40 next A
:return ;run 